Use ReadRecords method to force the report to read all records in the report from the database.
Sub ReadRecords ()